home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
info
/
cad08n11.zip
/
TEST3.LSP
< prev
Wrap
Lisp/Scheme
|
1994-02-01
|
403b
|
17 lines
(defun C:test ()
(setq temperr *error*)
(setq *error* trap1)
(setq s (getstring "\nType something in. "))
(terpri)(prompt s)
(princ "\nThis is a test without an error. ")
(setq *error* temperr)
(princ)
)
(defun trap1 (msg)
(princ "\nAn error has occurred! ")
(princ "\nThe error was: ")(prompt msg)(prompt " ")
(setq *error* temperr)
(princ)
)